home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 5 / 005.d81 / babysitter's not (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  72 lines
  1. 10 rem *** babysitter's notes ***
  2. 20 rem *** by sandy smith     ***
  3. 30 rem *** january 1984       ***
  4. 40 rem *** translated for the ***
  5. 45 rem *** 64 by donna woody  ***
  6. 50 poke53280,1:poke53281,7:printchr$(144):poke53272,23:printchr$(8)
  7. 100 rem *** title page ***
  8. 110 printchr$(147):poke781,0:poke782,10:sys65520:print"**********************"
  9. 112 poke781,1:poke782,10:sys65520:print"*                    *"
  10. 113 poke781,2:poke782,10:sys65520:print"* [194][193][194][217][211][201][212][212][197][210]'[211] [206][207][212][197][211] *"
  11. 114 poke781,3:poke782,10:sys65520:print"*                    *"
  12. 115 poke781,4:poke782,10:sys65520:print"*   by [211]andy [211]mith   *"
  13. 116 poke781,5:poke782,10:sys65520:print"*                    *"
  14. 117 poke781,6:poke782,10:sys65520:print"*   [212]ranslated by    *"
  15. 118 poke781,7:poke782,10:sys65520:print"*                    *"
  16. 119 poke781,8:poke782,10:sys65520:print"*   [196]onna [203]. [215]oody   *"
  17. 120 poke781,9:poke782,10:sys65520:print"*                    *"
  18. 121 poke781,10:poke782,10:sys65520:print"**********************"
  19. 130 print:print"     [215]hen you hire a sitter for your":print
  20. 131 print"children, you should provide him or her":print
  21. 140 print"with specific written information and":print
  22. 141 print"instructions for both normal routines":print
  23. 142 print"and emergency situations.":print
  24. 145 poke781,23:poke782,5:sys65520:print"[208]ress <[211][208][193][195][197][160][194][193][210]> to continue.";
  25. 146 poke198,0:wait198,1:geta$:printchr$(147)
  26. 150 print"     [212]he page that is about to be":print
  27. 151 print"printed is a blank form for you to fill":print
  28. 152 print"in and give to your sitter before you":print
  29. 153 print"leave.":print
  30. 160 poke781,10:poke782,0:sys65520
  31. 161 print"[208]ress <[208]> when your printer is ready":print
  32. 162 print"[208]ress <[209]> to quit right now"
  33. 163 poke198,0:wait198,1:getq$
  34. 170 ifq$="q" or q$="[209]" then printchr$(147):goto500
  35. 180 ifq$="p"orq$="[208]"then210
  36. 185 goto160
  37. 200 rem *** the form ***
  38. 210 printchr$(147):open4,4,7:cmd4
  39. 220 fori=1to3:print:next
  40. 230 printspc(25)"[201][206][198][207][210][205][193][212][201][207][206] [198][207][210] [207][213][210] [194][193][194][217][211][201][212][212][197][210]":print
  41. 240 printspc(10)"[207]ur children's names and ages are:":print
  42. 241 printspc(10);:fori=1to60:print"[164]";:next:print:print
  43. 242 printspc(10);:fori=1to60:print"[164]";:next:print:print
  44. 250 printspc(10)"[207]ur names are:";:fori=1to45:print"[164]";:next:print:print
  45. 260 printspc(10)"[207]ur address here is: ";:fori=1to39:print"[164]";:next:print:print
  46. 261 printspc(31);:fori=1to39:print"[164]";:next:print
  47. 270 print:printspc(10)"[207]ur phone number here is: ";:fori=1to34:print"[164]";:next:print
  48. 280 print:printspc(10)"[207]ur expected time of return is: ";:fori=1to28:print"[164]";:next:print
  49. 290 print:printspc(10)"[215]e can be reached at: ";:fori=1to38:print"[164]";:next:print
  50. 300 print:print:printspc(10)"[197][205][197][210][199][197][206][195][217] [208][200][207][206][197] [206][213][205][194][197][210][211]: ":print
  51. 310 printspc(31)"[198][201][210][197]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  52. 311 printspc(29)"[208][207][204][201][195][197]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  53. 320 printspc(10)"[193][205][194][213][204][193][206][195][197] [207][210] [210][197][211][195][213][197] [211][209][213][193][196]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  54. 330 printspc(21)"[208][207][201][211][207][206] [195][207][206][212][210][207][204]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  55. 340 printspc(16)"[200][207][211][208][201][212][193][204] [206][193][205][197]/[208][200][207][206][197]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  56. 350 printspc(16)"[196][207][195][212][207][210]'[211] [206][193][205][197]/[208][200][207][206][197]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  57. 360 printspc(31)"[212][193][216][201]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  58. 370 printspc(10)"[200]elpful [206]eighbors:":print
  59. 371 printspc(10)"[206]ame: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  [208]hone: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  60. 372 printspc(10)"[206]ame: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  [208]hone: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  61. 380 print:printspc(10)"[211][208][197][195][201][193][204] [201][206][211][212][210][213][195][212][201][207][206][211]:"
  62. 390 print#4:close4
  63. 400 rem *** what next ***
  64. 410 poke781,10:poke782,1:sys65520:print"[215]ant to make another copy (y/n)?[160]";
  65. 411 poke198,0:wait198,1:getq$
  66. 412 ifq$="n"orq$="[206]"then500
  67. 420 ifq$="y"orq$="[217]"then160
  68. 430 goto410
  69. 499 rem *** end ***
  70. 500 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  71. 510 poke631,13:poke632,13:poke198,2:end
  72.